procedure CharToOemBuff(var S: String);
Translates an ANSI string to a string with characters from the OEM-defined character set.